10 REM 64 JOYSTICK ARTIST BY MICHAEL PLATT
15 PRINT:PRINT "[147]POKING MACHINE CODE -- PLEASE WAIT"
19 REM CHECKSUM
20 Z=0:S=206122:FORT=0TO1809:READA:Z=Z+A:NEXT
30 IFZ=STHENPRINT"DATA STATEMENTS CORRECT":GOTO50
40 IFZ<>STHENPRINT"ERROR IN DATA STATEMENTS":END
50 RESTORE
99 REM MAIN ROUTINE
100 FORT=49152TO49456:READD:POKET,D:NEXT
110 DATA128,64,32,16,8,4,2,1,192,192,48,48,12,12,3
120 DATA3,128,128,32,32,8,8,2,2,64,64,16,16,4,4,1
130 DATA1,63,63,207,207,243,243,252,252,169,8,133,34,56,176,29
140 DATA169,16,133,34,56,176,22,169,24,133,34,56,176,15,169,32
150 DATA133,34,56,176,8,169,0,133,34,56,176,1,96,173,65,3
160 DATA201,2,176,248,201,1,208,7,173,64,3,201,64,176,237,173
170 DATA66,3,201,200,176,230,169,0,141,63,3,133,254,173,64,3
180 DATA41,248,141,60,3,173,66,3,41,7,24,109,60,3,141,60
190 DATA3,173,65,3,105,0,141,61,3,173,66,3,41,248,133,253
200 DATA160,5,10,46,63,3,136,208,249,141,62,3,165,253,160,3
210 DATA10,38,254,136,208,250,24,109,62,3,133,253,165,254,109,63
220 DATA3,133,254,24,165,253,109,60,3,133,253,165,254,109,61,3
230 DATA24,105,32,56,133,254,173,64,3,41,7,24,101,34,170,189
240 DATA0,192,133,35,160,0,177,253,166,34,224,32,240,5,5,35
250 DATA145,253,96,37,35,145,253,96,162,0,169,38,157,0,4,157
260 DATA0,5,157,0,6,157,0,7,169,1,157,0,216,157,0,217
270 DATA157,0,218,157,233,218,232,208,225,169,63,133,167,169,0,133
280 DATA166,168,145,166,136,192,0,208,249,198,167,166,167,224,31,208
290 DATA241,173,17,208,9,32,141,17,208,173,24,208,9,8,141,24
300 DATA208,96
309 REM MOVE CURSOR ROUTINE
310 FORT=49488TO49619:READD:POKET,D:NEXT
320 DATA230,63,165,63,197,36,208,123,169,0,133,63,173,0,220
330 DATA41,1,208,10,173,1,208,201,40,240,3,206,1,208,173,0
340 DATA220,41,2,208,10,173,1,208,201,239,240,3,238,1,208,173
350 DATA0,220,41,8,208,32,173,16,208,201,1,208,7,173,0,208
360 DATA201,62,240,18,238,0,208,238,0,208,173,0,208,201,0,208
370 DATA5,169,1,141,16,208,173,0,220,41,4,208,20,173,16,208
380 DATA201,0,208,7,173,0,208,201,0,240,6,206,0,208,206,0
390 DATA208,173,16,208,201,1,208,12,173,0,208,201,254,208,5,169
400 DATA0,141,16,208,96
409 REM DRAW ROUTINE
410 FORT=49920TO49996:READD:POKET,D:NEXT
420 DATA173,16,208,141,65,3,173,0,208,141,64,3,173,1,208
430 DATA56,233,40,141,66,3,173,0,220,41,16,208,48,165,165,201
440 DATA0,208,9,32,61,192,206,66,3,32,61,192,165,165,201,1
450 DATA208,3,32,40,192,165,165,201,2,208,6,32,61,192,32,47
460 DATA192,165,165,201,3,208,6,32,61,192,32,54,192,96
469 REM READ COMMAND KEYS/ POKE COLOR MAP ROUTINES
470 FORT=50176TO50564:READD:POKET,D:NEXT
480 DATA169,8,133,37,32,159,255,32,228,255,201,133,208,12,230
490 DATA168,166,168,224,16,208,4,162,0,134,168,166,168,142,37,208
500 DATA201,134,208,12,198,165,166,165,224,255,208,4,162,3,134,165
510 DATA201,135,208,15,238,32,208,174,32,208,224,16,208,5,162,0
520 DATA142,32,208,201,136,208,15,238,33,208,174,33,208,224,16,208
530 DATA5,162,0,142,33,208,201,49,208,4,162,5,134,36,201,50
540 DATA208,4,162,10,134,36,201,51,208,4,162,16,134,36,201,52
550 DATA208,4,162,21,134,36,201,53,208,4,162,32,134,36,201,54
560 DATA208,4,162,48,134,36,201,55,208,4,162,64,134,36,201,56
570 DATA208,4,162,112,134,36,201,57,208,4,162,255,134,36,201,147
580 DATA208,3,32,8,193,201,137,208,3,32,0,202,201,138,208,3
590 DATA32,0,201,201,45,208,5,162,0,142,21,208,201,43,208,5
600 DATA162,3,142,21,208,201,139,208,7,162,1,134,37,32,0,202
610 DATA201,140,208,7,162,1,134,37,32,0,201,201,169,208,12,174
620 DATA33,208,142,254,207,174,32,208,142,255,207,201,92,208,12,174
630 DATA254,207,142,33,208,174,255,207,142,32,208,133,39,96,2,0
640 DATA0,173,0,220,41,16,208,125,32,21,195,165,254,41,7,170
650 DATA165,254,74,74,74,133,167,165,253,74,74,74,133,166,224,0
660 DATA240,15,202,24,165,166,105,32,133,166,144,242,230,167,56,176
670 DATA237,160,0,165,165,201,3,208,16,177,166,41,15,106,106,106
680 DATA106,5,168,42,42,42,42,145,166,165,165,201,2,208,8,177
690 DATA166,41,240,5,168,145,166,165,165,201,1,208,40,24,165,167
700 DATA105,212,133,167,165,253,41,1,176,11,177,166,41,240,5,168
710 DATA145,166,56,176,16,177,166,41,15,106,106,106,106,5,168,42
720 DATA42,42,42,145,166,96
729 REM DISPLAY DRAW MODE ROUTINE
730 FORT=50688TO50806:READD:POKET,D:NEXT
740 DATA165,165,201,3,208,25,169,171,141,201,3,141,204,3,141
750 DATA210,3,141,213,3,169,191,141,216,3,141,198,3,141,207,3
760 DATA201,2,208,27,169,191,141,198,3,141,207,3,141,216,3,169
770 DATA171,141,201,3,141,204,3,169,186,141,210,3,141,213,3,201
780 DATA1,208,23,169,171,141,198,3,141,201,3,141,204,3,141,207
790 DATA3,141,210,3,141,213,3,141,216,3,201,0,208,25,169,191
800 DATA141,198,3,141,207,3,141,216,3,169,186,141,201,3,141,210
810 DATA3,141,204,3,141,213,3,96
819 REM SINGLE/ DOUBLE CURSOR ROUTINE
820 FORT=50944TO51010:READD:POKET,D:NEXT
830 DATA165,39,201,42,208,15,166,38,240,7,162,0,134,38,56
840 DATA176,4,162,1,134,38,166,38,224,1,208,25,206,66,3,32
850 DATA0,197,162,140,142,211,3,142,214,3,162,136,142,217,3,142
860 DATA220,3,56,176,14,162,128,142,211,3,142,214,3,142,217,3
870 DATA142,220,3,96
879 REM LOAD ROUTINE
880 FORT=51456TO51567:READD:POKET,D:NEXT
890 DATA32,0,206,165,165,141,253,207,169,27,141,17,208,169,21
900 DATA141,24,208,173,33,208,141,69,63,173,32,208,141,70,63,169
910 DATA0,141,21,208,169,6,141,33,208,160,0,185,0,204,32,210
920 DATA255,200,192,40,208,245,165,37,201,1,208,13,160,0,185,40
930 DATA204,32,210,255,200,192,20,208,245,32,0,205,169,0,32,213
940 DATA255,173,69,63,141,33,208,173,70,63,141,32,208,169,3,141
950 DATA21,208,32,32,193,32,80,206,32,160,207,173,253,207,133,165
960 DATA96
969 REM SAVE ROUTINE
970 FORT=51712TO51834:READD:POKET,D:NEXT
980 DATA32,0,206,165,165,141,253,207,169,27,141,17,208,169,21
990 DATA141,24,208,173,33,208,141,69,63,173,32,208,141,70,63,169
1000 DATA0,141,21,208,169,6,141,33,208,160,0,185,0,204,32,210
1010 DATA255,200,192,20,208,245,165,37,201,1,208,13,160,0,185,40
1020 DATA204,32,210,255,200,192,20,208,245,32,0,205,169,17,32,210
1030 DATA255,169,0,133,61,169,32,133,62,162,0,160,72,169,61,32
1040 DATA216,255,173,69,63,141,33,208,169,3,141,21,208,32,32,193
1050 DATA32,80,206,32,160,207,173,253,207,133,165,96
1059 REM INITIALIZATION
1060 FORT=51968TO52078:READD:POKET,D:NEXT
1070 DATA32,231,192,169,3,141,21,208,169,1,141,39,208,169,160
1080 DATA141,0,208,141,1,208,169,0,141,33,208,169,1,141,29,208
1090 DATA173,22,208,9,16,141,22,208,169,3,133,165,169,3,141,28
1100 DATA208,169,32,133,36,141,2,208,169,58,141,3,208,169,6,133
1110 DATA167,169,108,133,166,169,38,133,170,169,1,133,171,169,1,133
1120 DATA168,169,1,141,40,208,169,0,133,38,141,37,208,169,6,141
1130 DATA32,208,32,160,207,169,14,141,248,7,169,15,141,249,7,96
1149 REM DATA FOR SAVE/LOAD PROMPT
1150 FORT=52224TO52431:POKET,0:NEXT
1160 FORT=52224TO52283:READA:POKET,A:NEXT
1170 DATA147,5,17,17,18,29,29,68,73,83,75,32,83,65,86
1180 DATA69,32,32,146,58,32,13,145,29,29,29,29,29,29,29,18
1190 DATA76,79,65,68,29,29,29,29,146,19,17,17,18,29,29,84
1200 DATA65,80,69,29,29,29,29,29,29,29,29,29,146
1210 POKE52329,12:POKE52332,8:POKE52338,8:POKE52341,12
1219 REM SPRITE DATA
1220 FORT=52371TO52397:READA:POKET,A:NEXT
1230 DATA170,140,85,191,140,85,171,136,85,171,136,85
1240 DATA191,128,85,171,128,85,171,128,85,191,128,85,170,128,85
1249 REM NAME INPUT ROUTINE FOR SAVE/LOAD
1250 FORT=52480TO52619:READA:POKET,A:NEXT
1260 DATA162,0,160,0,232,224,255,208,251,200,192,16,208,246,32
1270 DATA159,255,32,228,255,201,32,144,7,201,96,176,3,32,210,255
1280 DATA201,20,208,3,32,210,255,166,211,224,31,208,4,160,30,132
1290 DATA211,224,14,208,4,160,15,132,211,201,13,208,3,56,176,3
1300 DATA56,176,190,169,1,166,37,160,1,32,186,255,162,112,160,254
1310 DATA202,200,189,0,4,201,32,240,247,132,65,169,16,56,229,65
1320 DATA168,162,0,24,189,94,4,201,47,176,10,201,32,176,6,24
1330 DATA105,64,157,94,4,232,224,17,208,233,152,162,95,160,4,32
1340 DATA189,255,169,13,32,210,255,169,192,32,144,255,96
1349 REM TRANSFER MEMORY TO SAVE AREA ROUTINE
1350 FORT=52736TO52791:READA:POKET,A:NEXT
1360 DATA162,0,189,0,216,157,0,64,189,0,217,157,0,65,189
1370 DATA0,218,157,0,66,189,0,219,157,0,67,189,0,4,157,0
1380 DATA68,189,0,5,157,0,69,189,0,6,157,0,70,189,0,7
1390 DATA157,0,71,232,224,0,208,203,96
1399 REM TRANSFER MEMORY FROM SAVE AREA ROUTINE
1400 FORT=52816TO52871:READA:POKET,A:NEXT
1410 DATA162,0,189,0,64,157,0,216,189,0,65,157,0,217,189
1420 DATA0,66,157,0,218,189,0,67,157,0,219,189,0,68,157,0
1430 DATA4,189,0,69,157,0,5,189,0,70,157,0,6,189,0,71
1440 DATA157,0,7,232,224,0,208,203,96
1449 REM LOOP CALLING SUBROUTINES
1450 FORT=52992TO53015:READA:POKET,A:NEXT
1460 DATA32,0,203,32,80,193,32,0,195,32,0,196,32,0,197
1470 DATA32,0,198,32,0,199,76,3,207
1479 REM TRANSFER SPRITE DATA TO CASSETTE BUFFER ROUTINE
1480 FORT=53152TO53163:READA:POKET,A:NEXT
1490 DATA160,128,185,79,204,153,127,3,136,208,247,96
1500 POKE2049,0:POKE2050,0:SYS52992